home *** CD-ROM | disk | FTP | other *** search
/ I.C.E. International Computer Entertainment 5 / I.C.E. - International Computer Entertainment - Issue 05 (1991-08)(Cytax).adf / SOURCES / EOR(de)coder.s.PP / EOR(de)coder.s
Encoding:
Text File  |  1991-01-01  |  1.3 KB  |  35 lines
  1. ; Uah! This is a little eor-coder, just to explain how it works.
  2. ; The main-code is from HEN13713. He wrote it MILLIONS of years ago.
  3. ; But now I found it on one of my MILLIONS of disks, and as we do
  4. ; coding-systems in school, I wrote an article and rewrote this source.
  5. ; Don't ask me whether it works in the two directions but I hope
  6. ; you understand the MAINidea!?!
  7. ; Hope you like it anyway... Don't blame it on me...
  8. ; Bye, Eddy/COAST 1991!
  9. ; Eor, eor, eor.... oder wer?
  10. ; Naja... irgendwie so... vielleicht auch nicht...? Wer weiss?
  11. ; 
  12.  
  13. Startup:
  14. lea text,a0             ; Text nach a0
  15. lea codestring,a1       ; 'Codiervektor' nach a1
  16. move #$200,d0           ; Laenge nach d0. Ist natuerlich viel zu lang
  17.                         ; aber ich programmiere normalerweise nicht in
  18.                         ; Assembler... Sorry! Bin ich denn Jesus?
  19. decode:
  20. move.b (a1)+,d1         ; noch ein Codiervektorbyte nach d1
  21. eor.b d1,(a0)+          ; und eor'en mit dem Textbyte
  22. cmp.b #$ff,d1           ; Ende von 'Codiervekor'?
  23. bne.b weiter            ; Nä!
  24. lea codestring,a1       ; Doch, also 'codiervektor' wieder von vorne
  25. weiter:
  26. dbf d0,decode           ; Schaleife (Kamasutra, Hadschaalefoma?)
  27. rts                     ; The most important thing in this source, haha!
  28.  
  29. codestring:
  30. dc.b "Codiervektor",$ff
  31.  
  32. text: 
  33. dc.b "Und hier kommt der Text hin...",0
  34.  
  35.